VB Sample Code for PEGetVersion

DLL version
Private Sub mnuFileVersionDLL_Click()
Dim result%, VersionNum As Single

result% = PEOpenEngine()
If result% = 0 Then
MsgBox "Could not start the report engine. Execution must halt.", vbOKOnly + vbCritical, "Serious Error"
End
End If

VersionNum = PEVBGetVersion(PE_GV_DLL)

MsgBox "DLL Version Number " & VersionNum, vbOKOnly + vbInformation, "DLL Version"

PECloseEngine

MsgBox "DLL Version Complete!", vbOKOnly, "Operation Succeeded"

End Sub
Engine version
Private Sub mnuFileVersionEngine_Click()
Dim result%, VersionNum As Single

result% = PEOpenEngine()
If result% = 0 Then
MsgBox "Could not start the report engine. Execution must halt.", vbOKOnly + vbCritical, "Serious Error"
End
End If

VersionNum = PEVBGetVersion(PE_GV_ENGINE)

MsgBox "Engine Version Number " & VersionNum, vbOKOnly + vbInformation, "Engine Version"

PECloseEngine

MsgBox "Engine Version Complete!", vbOKOnly, "Operation Succeeded"

End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com